home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / pascal / zindent7.zip / ZINSCR.INC < prev    next >
Text File  |  1987-03-30  |  4KB  |  155 lines
  1.  
  2. (*****************************************************)
  3. (*                                                   *)
  4. (* Include File                                      *)
  5. (* SYSSCR.INC, v. 0300pm, mon, 30.Mar.87, Glen Ellis *)
  6. (*                                                   *)
  7. (*****************************************************)
  8.  
  9.  
  10. (* SysCpuSpeed is assigned to match MegaHertz Clock Speed *)
  11.  
  12. (* Procedure ********************************************************)
  13. (* Delay 1000, v. 0600am, fri, 27.Mar.87, Glen Ellis            *)
  14. procedure pDelay1;
  15. begin
  16.    delay(4000 div SysCpuSpeed );
  17. end;
  18.  
  19.  
  20. (* Procedure ********************************************************)
  21. (* Delay 2000, v. 0600am, fri, 27.Mar.87, Glen Ellis            *)
  22. procedure pDelay2;
  23. begin
  24.    delay(8000 div SysCpuSpeed );
  25. end;
  26.  
  27.  
  28. (* Procedure ********************************************************)
  29. (* Delay 4000, v. 0600am, fri, 27.Mar.87, Glen Ellis            *)
  30. procedure pDelay4;
  31. begin
  32.    delay(16000 div SysCpuSpeed );
  33. end;
  34.  
  35.  
  36. (* Procedure ********************************************************)
  37. (* Delay 8000, v. 0600am, fri, 27.Mar.87, Glen Ellis            *)
  38. procedure pDelay8;
  39. begin
  40.    delay(32000 div SysCpuSpeed );
  41. end;
  42.  
  43.  
  44. (* Procedure ********************************************************)
  45. (* ClearScreen, v. 0701am, sun, 31.Aug.86, Glen Ellis               *)
  46. procedure pClearScreen;
  47. var  X : nbr;
  48. begin
  49.    for x := 1 to 23 do writeln; (* for Apple/CPM Sider system *)
  50. end;
  51.  
  52.  
  53. (* Procedure *******************************************************)
  54. (* ReadCR,     v. 0730am, sat, 30.Aug.86, Glen Ellis              *)
  55. procedure pReadCR;
  56. var  CH : char;
  57. begin
  58.    While KeyPressed
  59.       do Read(Kbd,Ch); (* Flush input buffer *)
  60.    Read(Kbd,Ch);
  61.    If Ch=^[ Then Halt;
  62. end;
  63.  
  64.  
  65.  
  66. (* Procedure ********************************************************)
  67. (* KeyPressed,     v. 0700am, thu, 21.Aug.86, Glen Ellis            *)
  68. procedure pKeyPressed;
  69. Var  Ch: Char;
  70. begin (* proc *)
  71.    While KeyPressed Do Read(Kbd,Ch); (* Flush input buffer *)
  72.    Write('<CR> to continue or <ESC> to abort: ');
  73.    Read(Kbd,Ch);
  74.    WriteLn;
  75.    If Ch=^[ Then Halt;
  76. end; (* proc *)
  77.  
  78.  
  79.  
  80. (* Procedure ********************************************************)
  81. (* UserInterrupt,  v. 0700pm, sun, 14.Sep.86, Glen Ellis *)
  82. procedure XUserInterrupt;
  83. (* not tested , just quick idea *)
  84. Var  Ch: Char;
  85. begin (* proc *)
  86.    While KeyPressed Do Read(Kbd,Ch); (* Flush input buffer *)
  87.    Read(kbd,ch);
  88.    If Ch=^[ Then Halt;
  89. end; (* proc *)
  90.  
  91.  
  92.  
  93. (* Procedure ************************************************************)
  94. (* Write Screen Wait,   v. 0701am, sun, 31.Aug.86, Glen Ellis           *)
  95. procedure pWriteScreenWait( line : THEstr );
  96. begin
  97.    writeln(line);
  98.    pKeyPressed;
  99. end;
  100.  
  101.  
  102.  
  103. (* Procedure ********************************************************)
  104. (* Header Draw Box,     v. 0700am, thu, 21.Aug.86, Glen Ellis       *)
  105. procedure  pHEADERDRAWBOX(x1,y1,x2,y2 : nbr) ;
  106. var i : nbr ;
  107. begin
  108.    gotoxy(x1,y1) ;
  109.    for i := x1 to x2 do write('-') ;
  110.    for i := y1+1 to y2 do
  111.    begin
  112.       gotoxy(x1,i) ; write('!') ;
  113.       gotoxy(x2,i) ; write('!') ;
  114.    end ;
  115.    gotoxy(x1,y2) ;
  116.    for i := x1 to x2 do write('-') ;
  117. end ;
  118.  
  119.  
  120.  
  121. (* Procedure ********************************************************)
  122. (* Say Header, v. 0700am, thu, 21.Aug.86, Glen Ellis                *)
  123.  
  124. procedure pSayHeader;
  125.  
  126. (* uses system var:( title, version1, version2, credit )
  127. (* display only.
  128. *)
  129. var
  130. x : nbr;
  131.  
  132. begin (* proc *)
  133.  
  134.    pClearScreen;
  135.  
  136.    (* outline program header *)
  137.    for x := 1 to 2 do pHEADERDRAWBOX(1+x,1+x,80-x,12-x) ;
  138.  
  139.    gotoxy(7,5);
  140.    writeln(SysTitle);
  141.    gotoxy(7,6);
  142.    writeln(SysVersion1);
  143.    gotoxy(7,7);
  144.    writeln(SysVersion2);
  145.    gotoxy(7,8);
  146.    writeln(SysCredit);
  147.    gotoxy(0,12);
  148.    writeln; writeln;
  149. end; (* proc *)
  150.  
  151.  
  152.  
  153. (********************************************************************)
  154.  
  155. (*<<<>>>*)